home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 55.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  755 b   |  36 lines
  1. * 55.asm  TLdata     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8.  dc.b '     I''m a TLdata demonstration...',0 ;1
  9.  dc.b 'I will wait on the screen for a few seconds.',0 ;2
  10.  dc.b 'Then, I''ll disappear. So, parden me a few',0 ;3
  11.  dc.b 'seconds while I contemplate the relationship',0 ;4
  12.  dc.b 'between mind and matter.',0 ;5
  13.  dc.b 'Error: out of memory',0 ;6
  14.  
  15.  ds.w 0
  16.  
  17. * demonstrate TLdata
  18. Program:
  19.  TLwindow #-1              ;set things up
  20.  beq Pr_bad
  21.  
  22.  TLdata #2,#4              ;draw data window
  23.  
  24.  move.l xxp_dosb(a4),a6    ;delay 7 seconds
  25.  move.l #7*50,d1
  26.  jsr _LVODelay(a6)
  27.  
  28.  TLreqoff                  ;remove data window
  29.  bra.s Pr_quit             ;quit ok
  30.  
  31. Pr_bad:                    ;here if out of mem
  32.  TLbad #6
  33.  
  34. Pr_quit:
  35.  rts
  36.